home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 25 / AACD 25.iso / AACD / Graphics / PerfectPaint / rexx / bridge / PolarAnim.rx < prev    next >
Encoding:
Text File  |  2001-07-06  |  605 b   |  49 lines
  1. /*     arexx Script 
  2. */
  3.  
  4.     options results
  5.     parse ARG Port b
  6.     
  7.     ADDRESS value Port
  8.  
  9.     nb=10
  10.  
  11.     pp_CountFrames
  12.     nb=result
  13.     if nb<2 then do
  14.         pp_Warn 'Make*an*Anim*first.'
  15.         EXIT
  16.     end
  17.  
  18.  
  19.     pp_DialogInit 250 100 "*Polar*Coordinates*" 2
  20.         pp_Slider 0 100 5 100 16 "Start*Frame*#" 1 1 nb 1
  21.         pp_Slider 1 100 25 100 16 "End*Frame*#" 1 1 nb nb
  22.     pp_Dialog
  23.     rc=result
  24.     if rc=0 then
  25.         do
  26.             EXIT
  27.         end        
  28.         
  29.     pp_GetDialog 0
  30.     s0=result
  31.  
  32.     pp_GetDialog 1
  33.     s1=result
  34.  
  35.     if s1=s0 then DO
  36.         pp_GotoFrame s0
  37.         pp_UpdateUndo
  38.         pp_PolarC
  39.     END
  40.     else do
  41.         Do i=s0 to s1
  42.             pp_GotoFrame i
  43.             pp_PolarC
  44.         END
  45.         pp_GotoFrame s0
  46.     END
  47.  
  48. exit
  49.